From 82b83c2c59f501e51dc573984abdc4f2309b7cc1 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 14 May 2002 21:10:34 +0000 Subject: [PATCH] (cua--rectangle-operation): Don't highlight empty lines in rectangles. --- lisp/emulation/cua-rect.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 777fefa58eb..a3e94dc207d 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el @@ -585,7 +585,8 @@ If command is repeated at same position, delete the rectangle." (if (car (cdr (cdr sel))) (setq v (null v)))) (if visible - (funcall fct p m l r v) + (unless (eolp) + (funcall fct p m l r v)) (if v (funcall fct p m l r))))) (set-marker m nil) -- 2.30.2